#!/usr/bin/perl

use strict;
use warnings;

sub hypotenuse {
  my $firstarg = shift;
  my $secondarg = shift;
  return sqrt( ($firstarg **2) + ($secondarg **2) );
}
my $diag = hypotenuse(3,4);
print "$diag\n";
